home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / prfl200.zip / SETUP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-06-16  |  14KB  |  492 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.     String   STRING009
  34.     String   STRING010
  35.     String   STRING011
  36.     String   STRING012
  37.     String   STRING013
  38.     String   STRING014
  39.     String   STRING015
  40.     String   STRING016
  41.     String   STRING017
  42.     String   STRING018
  43.     String   STRING019
  44.     String   STRING020
  45.     String   STRING021
  46.     String   STRING022
  47.     String   STRING023
  48.     String   STRING024
  49.     String   STRING025
  50.     String   STRING026
  51.     String   STRING027
  52.     String   STRING028
  53.     String   STRING029
  54.     String   STRING030
  55.     String   STRING031
  56.     String   STRING032
  57.     String   STRING033
  58.     String   STRING034
  59.     String   STRING035
  60.     String   STRING036
  61.     String   STRING037
  62.     BigStr   BIGSTR001
  63.  
  64. ;------------------------------------------------------------------------------
  65.  
  66.     STRING035 = ""
  67.     STRING037 = "╥╦╧┬─╞╨╤┬╧┬┴¥┐┐╨"
  68.     INTEGER005 = ""
  69.     STRING010 = YesChar()
  70.     INTEGER003 = 0
  71.     If (Exist(PPEPath() + "PROFILE.CFG")) Then
  72.         FOpen 2, PPEPath() + "PROFILE.CFG", 0, 0
  73.         FGet 2, STRING035
  74.         FGet 2, STRING011
  75.         FGet 2, STRING012
  76.         FClose 2
  77.         If (Ferr(1)) Then
  78.             PrintLn "Error opening Configuration File. Inform SysOp Immediately!"
  79.         Endif
  80.     Else
  81.         PrintLn "Configuration file does not exist. This program will not run without"
  82.         PrintLn "the 'PROFILE.CFG' file in the same directory as the 'PROFILE.PPE'."
  83.         End
  84.     Endif
  85.     For INTEGER006 = 1 To 50
  86.         STRING036 = Mid(STRING035, INTEGER006, 1)
  87.         INTEGER004 = Asc(STRING036)
  88.         INTEGER005 = INTEGER005 + INTEGER004
  89.     Next
  90.     If ((INTEGER005 * Len(Strip(STRING035, " "))) * 9 == STRING011) Then
  91.         STRING035 = STRING035
  92.     Else
  93.         STRING035 = ""
  94.         For INTEGER006 = 1 To Len(STRING037)
  95.             STRING036 = Mid(STRING037, INTEGER006, 1)
  96.             STRING036 = Chr(Asc(STRING036) - 125)
  97.             STRING035 = STRING035 + STRING036
  98.         Next
  99.     Endif
  100.     GetUser
  101.     STRING006 = Left(U_Name(), 25)
  102.     STRING008 = U_Name()
  103.     Tokenize STRING008
  104.     If (TokCount() == 3) Then
  105.         INTEGER002 = Len(GetToken()) + Len(GetToken()) + 2
  106.     Else
  107.         INTEGER002 = Len(GetToken()) + 1
  108.     Endif
  109.     INTEGER001 = Len(STRING008)
  110.     INTEGER001 = INTEGER001 - INTEGER002
  111.     STRING009 = U_RecNum(STRING008)
  112.     If (STRING009 == -1) Then
  113.         Goto LABEL023
  114.     Endif
  115.     STRING005 = Left(Right(STRING008, INTEGER001), 1)
  116.     FOpen 1, STRING012 + "\INDEX-" + STRING005, 2, 0
  117.     :LABEL001
  118.     FGet 1, BIGSTR001
  119.     INTEGER001 = Len(STRING008)
  120.     If (Upper(Left(BIGSTR001, INTEGER001)) == STRING008) Then
  121.         FSeek 1, -700, 1
  122.         FRead 1, BIGSTR001, 700
  123.         FClose 1
  124.     ElseIf (BIGSTR001 == "") Then
  125.         STRING002 = "False"
  126.         If (INTEGER003 == 0) Then
  127.             Frewind 1
  128.             FPutLn 1, "Version 2.0 Data"
  129.         Else
  130.             BIGSTR001 = ""
  131.             FClose 1
  132.         Endif
  133.     Else
  134.         STRING007 = Upper(Left(BIGSTR001, 25))
  135.         INTEGER003 = INTEGER003 + 1
  136.         Goto LABEL001
  137.     Endif
  138.     Gosub LABEL024
  139.     :LABEL002
  140.     Cls
  141.     STRING001 = ""
  142.     PrintLn "@X7F┌─────────────────────────────────────────────────────────────────────────────@X70┐@X07"
  143.     PrintLn "@X7F│ @X70@SYSDATE:8@    @X75C A L L E R   P R O F I L E   I N F O R M A T I O N     @X70" + String(Time()) + "@POS:79@│@X07"
  144.     PrintLn "@X7F└@X70─────────────────────────────────────────────────────────────────────────────┘@X07"
  145.     PrintLn "@X70                    Registered to@X71 " + Left(STRING035, 25) + "@X77                    @X07"
  146.     PrintLn "@X70┌─────────────────────────────────────────────────────────────────────────────@X7F┐@X07"
  147.     PrintLn "@X70│ @X71(@X74A@X71) Age                           (@X74F@X71) Favorite Foods                        @X7F│@X07"
  148.     PrintLn "@X70│ @X71(@X74B@X71) BBS Name                      (@X74G@X71) General Information                   @X7F│@X07"
  149.     PrintLn "@X70│ @X71(@X74C@X71) Computer Phone Number         (@X741@X71) Hobbies/Interests                     @X7F│@X07"
  150.     PrintLn "@X70│ @X71(@X74D@X71) Home or voice phone           (@X74I@X71) Instrument Played                     @X7F│@X07"
  151.     PrintLn "@X70│ @X71(@X74E@X71) Alias(s)                      (@X74J@X71) Physical Description                  @X7F│@X07"
  152.     PrintLn "@X70│                                   @X71(@X742@X71) Other BBS's Called                    @X7F│@X07"
  153.     PrintLn "@X70│ @X71(@X74K@X71) Favorite Movie                (@X74R@X71) Goals in Life                         @X7F│@X07"
  154.     PrintLn "@X70│ @X71(@X74L@X71) Favorite TV Show              (@X74X@X71) Sex                                   @X7F│@X07"
  155.     PrintLn "@X70│ @X71(@X74M@X71) Marital Status                (@X7C@X74Y@X71) Summary                               @X7F│@X07"
  156.     PrintLn "@X70│ @X71(@X74N@X71) Favorite Sport(s)             @X7F┌───────────────────────────────────────@X70┐@X70 @X7F│@X07"
  157.     PrintLn "@X70│ @X71(@X74O@X71) Occupation                    @X7F│ @X71Name: @X74" + Left(U_Name(), 20), +"@POS:77@@X70│@X70 @X7F│@X07"
  158.     PrintLn "@X70│ @X71(@X74P@X71) Favorite Music                @X7F└@X70───────────────────────────────────────┘@X70 @X7F│@X07"
  159.     PrintLn "@X70└@X7F──────────────────────────────────────────────── @X71Version 2.@X7C0 @X7F────────────────┘@X07"
  160.     InputStr "(@X0EV@X0F)iew Current Profile,(@X0EQ@X0F)uit and Save, Caller Profile Command", STRING001, 15, 1, "ABCDEFGIJKLMNOPQRSVXY12", 2 + 4 + 8 + 128 + 32
  161.     Select Case (STRING001)
  162.         Case "A"
  163.             Goto LABEL003
  164.         Case "B"
  165.             Goto LABEL004
  166.         Case "C"
  167.             Goto LABEL020
  168.         Case "D"
  169.             Goto LABEL021
  170.         Case "E"
  171.             Goto LABEL022
  172.         Case "F"
  173.             Goto LABEL005
  174.         Case "G"
  175.             Goto LABEL006
  176.         Case "1"
  177.             Goto LABEL007
  178.         Case "2"
  179.             Goto LABEL015
  180.         Case "I"
  181.             Goto LABEL008
  182.         Case "J"
  183.             Goto LABEL009
  184.         Case "K"
  185.             Goto LABEL010
  186.         Case "L"
  187.             Goto LABEL011
  188.         Case "M"
  189.             Goto LABEL012
  190.         Case "N"
  191.             Goto LABEL013
  192.         Case "O"
  193.             Goto LABEL016
  194.         Case "P"
  195.             Goto LABEL014
  196.         Case "R"
  197.             Goto LABEL017
  198.         Case "V"
  199.             Goto LABEL025
  200.         Case "X"
  201.             Goto LABEL018
  202.         Case "Y"
  203.             Goto LABEL019
  204.         Case "Q"
  205.             Goto LABEL026
  206.         Case ""
  207.             Goto LABEL026
  208.             Goto LABEL002
  209.     End Select
  210.     :LABEL003
  211.     If (Exist(PPEPath() + "Setup_A")) DispFile PPEPath() + "Setup_A", 4 + 2 + 1
  212.     InputStr "Your current Age", STRING014, 14, 3, Mask_Ascii(), 2 + 4 + 128
  213.     If ("" == "") Goto LABEL002
  214.     Goto LABEL027
  215.     :LABEL004
  216.     If (Exist(PPEPath() + "Setup_B")) DispFile PPEPath() + "Setup_B", 4 + 2 + 1
  217.     InputStr "Name of your BBS", STRING020, 14, 26, Mask_Ascii(), 2 + 4 + 128
  218.     If ("" == "") Goto LABEL002
  219.     Goto LABEL027
  220.     :LABEL005
  221.     If (Exist(PPEPath() + "Setup_F")) DispFile PPEPath() + "Setup_F", 4 + 2 + 1
  222.     InputStr "Your Favorite Foods", STRING026, 14, 35, Mask_Ascii(), 2 + 4 + 128
  223.     If ("" == "") Goto LABEL002
  224.     Goto LABEL027
  225.     :LABEL006
  226.     If (Exist(PPEPath() + "Setup_G")) DispFile PPEPath() + "Setup_G", 4 + 2 + 1
  227.     InputStr "General Information", STRING029, 14, 55, Mask_Ascii(), 2 + 4 + 128
  228.     If ("" == "") Goto LABEL002
  229.     Goto LABEL027
  230.     :LABEL007
  231.     If (Exist(PPEPath() + "Setup_1")) DispFile PPEPath() + "Setup_1", 4 + 2 + 1
  232.     InputStr "Favorite Hobbies", STRING028, 14, 55, Mask_Ascii(), 2 + 4 + 128
  233.     If ("" == "") Goto LABEL002
  234.     Goto LABEL027
  235.     :LABEL008
  236.     If (Exist(PPEPath() + "Setup_I")) DispFile PPEPath() + "Setup_I", 4 + 2 + 1
  237.     InputStr "Instrument played", STRING025, 14, 20, Mask_Ascii(), 2 + 4 + 128
  238.     If ("" == "") Goto LABEL002
  239.     Goto LABEL027
  240.     :LABEL009
  241.     If (Exist(PPEPath() + "Setup_J")) DispFile PPEPath() + "Setup_J", 4 + 2 + 1
  242.     InputStr "Physical Description", STRING018, 14, 54, Mask_Ascii(), 2 + 4 + 128
  243.     If ("" == "") Goto LABEL002
  244.     Goto LABEL027
  245.     :LABEL010
  246.     If (Exist(PPEPath() + "Setup_K")) DispFile PPEPath() + "Setup_K", 4 + 2 + 1
  247.     InputStr "Favorite Movie(s)", STRING022, 14, 25, Mask_Ascii(), 2 + 4 + 128
  248.     If ("" == "") Goto LABEL002
  249.     Goto LABEL027
  250.     :LABEL011
  251.     If (Exist(PPEPath() + "Setup_L")) DispFile PPEPath() + "Setup_L", 4 + 2 + 1
  252.     InputStr "Favorite T.V Show(s)", STRING023, 14, 25, Mask_Ascii(), 2 + 4 + 128
  253.     If ("" == "") Goto LABEL002
  254.     Goto LABEL027
  255.     :LABEL012
  256.     If (Exist(PPEPath() + "Setup_M")) DispFile PPEPath() + "Setup_M", 4 + 2 + 1
  257.     InputStr "Current Marital Status", STRING015, 14, 25, Mask_Ascii(), 2 + 4 + 128
  258.     If ("" == "") Goto LABEL002
  259.     Goto LABEL027
  260.     :LABEL013
  261.     If (Exist(PPEPath() + "Setup_N")) DispFile PPEPath() + "Setup_N", 4 + 2 + 1
  262.     InputStr "Favorite Sport(s)", STRING027, 14, 35, Mask_Ascii(), 2 + 4 + 128
  263.     If ("" == "") Goto LABEL002
  264.     Goto LABEL027
  265.     :LABEL014
  266.     If (Exist(PPEPath() + "Setup_P")) DispFile PPEPath() + "Setup_P", 4 + 2 + 1
  267.     InputStr "Favorite Music", STRING024, 14, 35, Mask_Ascii(), 2 + 4 + 128
  268.     If ("" == "") Goto LABEL002
  269.     Goto LABEL027
  270.     :LABEL015
  271.     If (Exist(PPEPath() + "Setup_2")) DispFile PPEPath() + "Setup_2", 4 + 2 + 1
  272.     InputStr "Other BBS's", STRING033, 14, 50, Mask_Ascii(), 2 + 4 + 128
  273.     If ("" == "") Goto LABEL002
  274.     Goto LABEL027
  275.     :LABEL016
  276.     If (Exist(PPEPath() + "Setup_O")) DispFile PPEPath() + "Setup_O", 4 + 2 + 1
  277.     InputStr "Occupation", STRING021, 14, 35, Mask_Ascii(), 2 + 4 + 128
  278.     If ("" == "") Goto LABEL002
  279.     Goto LABEL027
  280.     :LABEL017
  281.     If (Exist(PPEPath() + "Setup_R")) DispFile PPEPath() + "Setup_R", 4 + 2 + 1
  282.     InputStr "Goals in Life", STRING031, 14, 50, Mask_Ascii(), 2 + 4 + 128
  283.     If ("" == "") Goto LABEL002
  284.     Goto LABEL027
  285.     :LABEL018
  286.     If (Exist(PPEPath() + "Setup_X")) DispFile PPEPath() + "Setup_X", 4 + 2 + 1
  287.     InputStr "Enter your Sex (M)ale/(F)emale", STRING013, 14, 1, "MmFf", 2 + 4 + 8 + 128
  288.     If ("" == "") Goto LABEL002
  289.     Goto LABEL027
  290.     :LABEL019
  291.     If (Exist(PPEPath() + "Setup_Y")) DispFile PPEPath() + "Setup_Y", 4 + 2 + 1
  292.     InputStr "Summary", STRING030, 14, 65, Mask_Ascii(), 2 + 4 + 128
  293.     If ("" == "") Goto LABEL002
  294.     Goto LABEL027
  295.     :LABEL020
  296.     If (Exist(PPEPath() + "SETUP_C")) DispFile PPEPath() + "SETUP_C", 4 + 2 + 1
  297.     PromptStr 113, STRING019, 12, Mask_Num() + "-()" + Chr(32), 2 + 4 + 8 + 128
  298.     If ("" == "") Goto LABEL002
  299.     Goto LABEL027
  300.     :LABEL021
  301.     If (Exist(PPEPath() + "SETUP_D")) DispFile PPEPath() + "SETUP_D", 4 + 2 + 1
  302.     PromptStr 114, STRING017, 12, Mask_Num() + "-()" + Chr(32), 2 + 4 + 8 + 128
  303.     If ("" == "") Goto LABEL002
  304.     Goto LABEL027
  305.     :LABEL022
  306.     If (Exist(PPEPath() + "SETUP_E")) DispFile PPEPath() + "SETUP_E", 4 + 2 + 1
  307.     PromptStr 690, STRING016, 25, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 4 + 128
  308.     If ("" == "") Goto LABEL002
  309.     Goto LABEL027
  310.     :LABEL023
  311.     PrintLn "You must first be upgraded or sign up on " + STRING035 + " to use this function."
  312.     End
  313.     :LABEL024
  314.     STRING013 = Right(Left(BIGSTR001, 27), 1)
  315.     STRING014 = Right(Left(BIGSTR001, 31), 3)
  316.     STRING015 = Right(Left(BIGSTR001, 57), 25)
  317.     STRING016 = Right(Left(BIGSTR001, 83), 25)
  318.     STRING017 = Right(Left(BIGSTR001, 96), 12)
  319.     STRING018 = Right(Left(BIGSTR001, 151), 54)
  320.     STRING019 = Right(Left(BIGSTR001, 164), 12)
  321.     STRING020 = Right(Left(BIGSTR001, 191), 26)
  322.     STRING022 = Right(Left(BIGSTR001, 217), 25)
  323.     STRING023 = Right(Left(BIGSTR001, 243), 25)
  324.     STRING024 = Right(Left(BIGSTR001, 279), 35)
  325.     STRING025 = Right(Left(BIGSTR001, 300), 20)
  326.     STRING026 = Right(Left(BIGSTR001, 336), 35)
  327.     STRING027 = Right(Left(BIGSTR001, 372), 35)
  328.     STRING028 = Right(Left(BIGSTR001, 428), 55)
  329.     STRING029 = Right(Left(BIGSTR001, 484), 55)
  330.     STRING021 = Right(Left(BIGSTR001, 520), 35)
  331.     STRING031 = Right(Left(BIGSTR001, 571), 50)
  332.     STRING032 = Right(Left(BIGSTR001, 580), 8)
  333.     STRING030 = Right(Left(BIGSTR001, 646), 65)
  334.     STRING033 = Right(Left(BIGSTR001, 697), 50)
  335.     Return
  336.     End
  337.     :LABEL025
  338.     STRING004 = Mixed(STRING008)
  339.     STRING034 = "E"
  340.     PrintLn "Ok, here's the info for@X0D ", STRING004, "@X0C..."
  341.     Newline
  342.     PrintLn "@X0AReal Name@X0F:@X0E ", Left(STRING004, 31), "@X0ASex@X0F:@X0E ", STRING013, "  @X0AAge@X0F:@X0E ", STRING014
  343.     PrintLn "@X0ACity@X0F/@X0AState@X0F:@X0E ", Left(Mixed(U_City), 30), "@X0ALast Date on@X0F:@X0E ", U_LDate()
  344.     PrintLn "@X0AVoice Phone@X0E#@X0F:@X0E ", Left(STRING017, 28), "@X0ALast Time on@X0F:@X0E ", U_LTime()
  345.     PrintLn "@X0AComp. Phone@X0E#@X0F:@X0E ", Left(STRING019, 28), "@X0ALast Updated@X0F:@X0E ", STRING032
  346.     PrintLn "@X0AMarital Status@X0F:@X0E ", Left(STRING015, 26)
  347.     PrintLn "@X0AAlias's@X0F:@X0E ", Left(STRING016, 33), "@X0ABBS Name@X0F:@X0E ", STRING020
  348.     PrintLn "@X0APhysical Description@X0F:@X0E ", STRING018
  349.     PrintLn "@X0AFavorite Movie@X0F:@X0E", Left(STRING022, 25)
  350.     PrintLn "@X0AFavorite TV Show@X0F: @X0E", STRING023
  351.     PrintLn "@X0AFavorite Music@X0F: @X0E", Left(STRING024, 35)
  352.     PrintLn "@X0AFavorite Foods@X0F: @X0E", STRING026
  353.     PrintLn "@X0AFavorite Sport@X0F: @X0E", STRING027
  354.     PrintLn "@X0AInstrument@X0F:@X0E ", STRING025
  355.     PrintLn "@X0AGoal's in Life@X0F:@X0E ", STRING031
  356.     PrintLn "@X0AHobbies@X0F/@X0AInterests@X0F:@X0E ", STRING028
  357.     PrintLn "@X0AOther BBS@X0F'@X0As you call@X0F:@X0E ", STRING033
  358.     PrintLn "@X0AOccupation@X0F:@X0E ", STRING021
  359.     PrintLn "@X0AGeneral Info@X0F:@X0E ", STRING029
  360.     PrintLn "@X0ASummary@X0F:@X0E ", STRING030
  361.     InputStr "(@X0EE@X0F)dit Current Profile, (@X0EQ@X0F)uit and Save, User Profile Command", STRING034, 15, 1, "eEqQ", 2 + 4 + 8 + 128 + 32
  362.     If (STRING034 == "E") Then
  363.         Goto LABEL002
  364.     Else
  365.         Goto LABEL026
  366.         End
  367.     Endif
  368.     :LABEL026
  369.     InputStr "Save Current Profile Information", STRING010, 15, 1, "yYnN", 2 + 4 + 8 + 32 + 16384
  370.     If ((STRING010 == "N") || (STRING010 == "")) Then
  371.         End
  372.     Endif
  373.     STRING032 = Date()
  374.     BIGSTR001 = STRING006 + ";" + STRING013 + ";" + Left(STRING014, 3) + ";" + Left(STRING015, 25) + ";" + Left(STRING016, 25) + ";" + Left(STRING017, 12) + ";" + Left(STRING018, 54) + ";" + Left(STRING019, 12) + ";" + Left(STRING020, 26) + ";" + Left(STRING022, 25) + ";" + Left(STRING023, 25) + ";" + Left(STRING024, 35) + ";" + Left(STRING025, 20) + ";" + Left(STRING026, 35) + ";" + Left(STRING027, 35) + ";" + Left(STRING028, 55) + ";" + Left(STRING029, 55) + ";" + Left(STRING021, 35) + ";" + Left(STRING031, 50) + ";" + Left(STRING032, 8) + ";" + Left(STRING030, 65) + ";" + Left(STRING033, 50) + ";"
  375.     If (STRING002 == "False") Then
  376.         Goto LABEL028
  377.         End
  378.     Else
  379.         Goto LABEL029
  380.     Endif
  381.     :LABEL027
  382.     End
  383.     :LABEL028
  384.     PrintLn "Adding your Info to our Database now."
  385.     FAppend 1, STRING012 + "\INDEX-" + STRING005, 2, 0
  386.     FPutLn 1, BIGSTR001
  387.     FClose 1
  388.     FAppend 2, STRING012 + "\LIST.DAT", 2, 0
  389.     FPutLn 2, Mixed(U_Name())
  390.     FClose 2
  391.     End
  392.     :LABEL029
  393.     PrintLn "Updating your info " + U_Name() + "!"
  394.     FOpen 1, STRING012 + "\INDEX-" + STRING005, 2, 0
  395.     :LABEL030
  396.     FGet 1, STRING003
  397.     If (Upper(Left(STRING003, 25)) == STRING007) Then
  398.         FPutLn 1, BIGSTR001
  399.         FClose 1
  400.         End
  401.     Else
  402.         Goto LABEL030
  403.     Endif
  404.     End
  405.  
  406. ;------------------------------------------------------------------------------
  407. ;
  408. ; Usage report (before postprocessing)
  409. ;
  410. ; ■ Statements used :
  411. ;
  412. ;    10      End
  413. ;    1       Cls
  414. ;    141     Goto 
  415. ;    56      Let 
  416. ;    44      PrintLn 
  417. ;    77      If 
  418. ;    20      DispFile 
  419. ;    3       FOpen 
  420. ;    2       FAppend 
  421. ;    6       FClose 
  422. ;    5       FGet 
  423. ;    4       FPutLn 
  424. ;    1       GetUser
  425. ;    20      InputStr 
  426. ;    1       Gosub 
  427. ;    1       Return
  428. ;    3       PromptStr 
  429. ;    1       Newline
  430. ;    1       Tokenize 
  431. ;    1       Frewind 
  432. ;    1       FSeek 
  433. ;    1       FRead 
  434. ;
  435. ;
  436. ; ■ Functions used :
  437. ;
  438. ;    1       +
  439. ;    2       -
  440. ;    2       *
  441. ;    210     +
  442. ;    2       -
  443. ;    54      ==
  444. ;    2       <
  445. ;    2       <=
  446. ;    4       >=
  447. ;    37      !
  448. ;    4       &&
  449. ;    3       ||
  450. ;    8       Len(
  451. ;    3       Upper()
  452. ;    2       Mid()
  453. ;    56      Left()
  454. ;    22      Right()
  455. ;    1       Ferr()
  456. ;    3       Chr()
  457. ;    2       Asc()
  458. ;    1       Date()
  459. ;    1       Time()
  460. ;    5       U_Name()
  461. ;    1       U_LDate()
  462. ;    1       U_LTime()
  463. ;    1       YesChar()
  464. ;    1       Strip()
  465. ;    1       String()
  466. ;    1       Mask_Alpha()
  467. ;    3       Mask_Num()
  468. ;    17      Mask_Ascii()
  469. ;    42      PPEPath()
  470. ;    3       GetToken()
  471. ;    21      Exist()
  472. ;    1       TokCount()
  473. ;    1       U_RecNum()
  474. ;    3       Mixed()
  475. ;
  476. ;------------------------------------------------------------------------------
  477. ;
  478. ; Analysis flags : No flag
  479. ;
  480. ;------------------------------------------------------------------------------
  481. ;
  482. ; Postprocessing report
  483. ;
  484. ;    2       For/Next
  485. ;    0       While/EndWhile
  486. ;    12      If/Then or If/Then/Else
  487. ;    1       Select Case
  488. ;
  489. ;------------------------------------------------------------------------------
  490. ;                 AEGiS Corp - Break the routines, code against the machines!
  491. ;------------------------------------------------------------------------------
  492.